proFitdict begin
/Pbd {bind def}def
/Pm {moveto} def /Prm {rmoveto} def /Pl {lineto} def
/Ps {gsave} def /Pr {grestore} def
/Pt {stroke} def 
/Pw {setlinewidth} def /Pc {setrgbcolor} def 
/Pg {setgray} def
/Pfb {newpath dup 5 -1 roll Pm 3 1 roll 
dup 3 -1 roll Pl Px Pl Px Pl fill}Pbd
/Pfr {newpath 4 -1 roll dup 5 1 roll Pm 2 1 roll 
dup 3 1 roll Pl Px 2 1 roll Pl Px 2 1 roll Pl fill}Pbd
/Po0 {3 -1 roll exch 2 mul add 3 
div 3 1 roll 2 mul add 3 div exch}Pbd
/Po1 {4 copy 10 2 roll Po0 8 2 roll Po0 6 2 roll curveto}Pbd
/Po2 {4 copy 3 -1 roll add 2 div 3 1 roll add 2 
div exch 2 copy 6 -2 roll 10 4 roll Po1}Pbd
/Pcol1 {1 exch sub 4 -1 roll mul 1 exch sub 3 1 roll}Pbd
/Pcol {1 exch sub dup dup currentrgbcolor 
Pcol1 Pcol1 Pcol1 setrgbcolor}Pbd
/Pshow {dup dup stringwidth pop 4 -1 roll exch sub exch 
length div 0 3 -1 roll 1 -1 scale ashow 1 -1 scale}Pbd
/PMacEncoding 256 array def
/PCSet {3 -1 roll dup 4 2 roll put}Pbd
/Pfont
{dup FontDirectory exch known {exch} {}ifelse pop
findfont exch scalefont setfont} Pbd
/Psetfont {/PName exch def
FontDirectory PName known
{pop}
{findfont dup length dict /PDict exch def
{1 index /FID ne {PDict 3 1 roll put}{pop pop}ifelse}forall
PDict /Encoding PMacEncoding put
PName PDict definefont pop }
ifelse
PName findfont exch scalefont setfont}Pbd
/PsetCfont {/PCEncoding exch def /PName exch def
FontDirectory PName known
{pop}
{findfont dup length dict /PDict exch def
{1 index /FID ne {PDict 3 1 roll put}{pop pop}ifelse}forall
PDict /Encoding PCEncoding put
PName PDict definefont pop }
ifelse
PName findfont exch scalefont setfont}Pbd